SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


**F ILE**1D**MOUNTVER 
MM MM 000000 UU UU NN NN TTTTTTTTTT VV VV EEEEEEEEEE RRRRRRRR 
MM MM 000000 UU UU NN NN TTTTTTTTTT VV VV EEEEEEEEEE RRRRRRRR 
MMMM =6MMMM 600 00 UU UU NN NN TT VV VV EE RR RR 
MMMM =6MMMM 600 00 UU UU NN NN TT VV VV EE RR RR 
MM MM MM 00 UU UU NNNN NN TT VV VV EE RR RR 
MM MM MM «(O00 00 UU UU NN TT VV VV EE RR RR 
MM MM 00 UU UU NN NN NN TT VV VV EEEEEEEE RRRRRRRR 
MM MM 600 00 UU UU NN NN TT VV VV EEEEEEEE RRRRRRRR 
MM MM 600 00 UU UU NN NNNN TT VV VV EE RR RR 
MM MM 00 UU UU NN NNNN TT VV VV EE RR RR 
MM MM 600 00 UU UU NN NN TT VV VV EE RR RR eeee 
MM MM 600 00 UU UU NN NN TT VV VV EE RR RR eeee 
MM MM 000000 UUUUUUUUUU NNN NN TT VV EEEEEEEEEE RR RR cece 
MM MM 000000 UUUUUUUUUU NNN NN TT VV EEEEEEEEEE RR RR cece 
LL IIIT] SSSSSSSS 
LL III111] SSSSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLELLLLLLL 1111 SSSSSSSS 
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Facility: 
Executive 1/0 system. 
Abstract: 
This module contains ee. of the code oe gt to implement 
mount verification. support routines not in this module are 
contained in other modules in the EXEC, notably IOSUBNPAG. 
Environment: 


This code executes in KERNEL mode, at device IPL 
or higher, and the code must therefore be resident. 


Author: 

Steven T. Jeffreys 
Creation date: 

June 10, 1981 
Update history: 

v04-002 ROW0415 Ralph 0. Weber 10-SEP-1984 

Fix no-quorum orans dest ination after PAUSE to go to the 

TIME_DELAY subroutine call. 


V04-001 ROW0414 alph 0 Weber 6-SEP-1984 
Rework handling ~ VTIMEOUT checking after PAUSE so that 
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/FOREIGN volumes == which get into mount verification during 
cluster state transitions -- will time out mount verification. 


v03-022 — 10 Weber 6-AUG-1984 
etue use of ucesv. PUTRAN to. uarantee that mount 
aa fication alwayS runs for all disks after a VAXc Luster 
state transition. 


V03-021 ROW0407 lph 0. Webe 25-JUL-1984 
Ada $GETDVI escac “1 “vector place holder, EXESMNTVER_DVI_ASSIST. 
Also move EXESMNIVERSP2 back to RSB; EXESCLUTRANIO is ~ 
correctly used by the connection manager now. 


V03-020 ROW0403 Ralph 0. Weber 22-JUL-1984 
Change volume name checking so that if either the volume Label 
or the volume lock name is correct the volume is considered to 
be correct. This volume name check ing techn taue is designed 
to handle the cases where the volume is write locked or 
eegenes write locked such that the volume lock name cannot be 
ritten into the SCB. 


V03-019 ROW0385 ba h 0. Weber 7-JUL-1984 


- dsynbol foe EXESUPDGNERNUM, the update a shadow set 

generat on number routine. 
hange UCBS$V_SUPMVMSG procecetes to clear that bit if a 
message which cannot be suppressed is ever broadcast. 

- Change GET_BUFFER —F FRE eee UFFER to save the address of the 
IRP currently using the mount verification work buffer. 

- Change volume valication algorithm to check volume lock name 
stored in the SCB instead of the volume name stored in the 
home block. This prevents incorrect failures in a 
VAXcluster where SET VOLUME /LABEL= has be used. 


v03-018 ROWO372 ete S Weber 30-MAY-1984 
Correct set ting ° CBSV _MNTVERIP and UCBSV_MNTVERPND bits in 
EXESMNTVERS o have them set in UCBSL_STS not UCBSL_DEVCHAR2. 


V03-017 ROW0366 Ralph O. 18-MAY-1984 
ause oe LOOP tb RERQUES the ge + disk IRP before passing 
t off to th 9 driver for process ng; This is useful because 
the driver will eventually insert the IRP on some queue and 
failing to remove it first causes queue ei 


V03-016 wMC0004 Wayne Cardoza 15-May-1984 
Class driver wants yQUORLOST bit off after call. 


v03-015 MACO00S Wayne Cardoza 11-May-1984 
More VCB fixes. 


¥03-014 wMc0002 Wayne Cardoza 10-May-1984 
Fix problem for mount verification of disk hout VCB. 


v03-013 wMC0001 Wayne Cardoza 02-May-1984 
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Add support for loss of quorum stalling of 1/0. 


V03-012 ROW0343 Rolph 0. Weber 10-APR-1984 
Setu usage of UCBV_SUPMVMSG to actually supress ‘'normal’ 
mount verification mezsages. 


VO3-011 ROWO330 Ratph 0. Weber 24-MAR-1984 

Add EXESMNTVERSP1 and EXESMNTVERSP2, two spare mount 

verification entry points. Also move EXESMNTVERSHDOL to a 

pease where its future implementation is less likely to break 
ranch displacements. 


v03-010 ROW0326 Balen 0. Weber 20-MAR-1984 
Add testing of SCBSQ_MOUNTTIME against VCBSQ_MOUNTTIME to 
enhance wrong volume detection. Eliminate mount verification 
timeout for system disk. 


V03-009 ROW0321 Ralph 0. Weber 4-MAR-1984 
Fix incorrect usage of self-relative queues while waiting for 
mount verification work page. (Change to using absolute queues. 


v03-008 ROW0314 Ralph 0. Weber 28-F EB-1984 
Setup definition and use of MVMSL structure for the List of 
peosaaes and other information relivant for using the 
SEND_MESSAGE routine. 


V03-007 ROW0311 Ralph 0. Weber 26-F EB-1984 
> Change handling of work page based upon use of new mount 
verification private work page instead of blackhole page. 
> he no mount verification processing of any internal IRP. 
> Fix bug = failure to allocate a mount verification IRP 
error path. 
> Eliminate unneeded code in INIT_IRP and SEND_MESSAGE. 


V03-006 ROW0308 Ralph 0. Weber 21-FEB-1984 
Fix message handling tn be position independent. 


V03-005 ROW0292 Ralph 0. Weber 4-F EB-1984 

o Make changes necessary to move this module to SYSLOAxxx. 
Make all address references peat sven independent. 

o Restore TIME_DELAY routine, but have it FORK_WAIT using the 
CDRP portion of the internal IRP. Fix GET_BOFFER and 
FREE_BUFFER to fork on the CDRP as well. This makes mount 
verfication compatible with the class drivers which fork on 
the UCB at random times. 

o Add replace START_IO label with EXESMNTVERSIO thus making 
that routine accessible to in-driver mount verification 


routines. 
o Define EXESMNTVERSHDOL as a NOP routine, for now. 


v03-004 TCM0001 Trudy C. Matthews 09-Jun-1983 
Set up register R4 before calling IOCSCVT_DEVNAM to pet 
node$ddcu name if a remote device and ddcu if a local device. 


v03-003 ROW0177 Ralph 0. Weber 5-APR-1983 
Remove routine TIME_DELAY and convert all its callers to use 
the fork-and-wait executive service, FORK_WAIT. 
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v03-001 KDM000 


og ¢ Kathleen D. Morse 28-Jun-1982 
oe : Added S$PRDEF. 
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12 -SBTTL Declarations 
! ; Macro definitions 
1 SCADEF ; Define cqnéte tonal assembly symbols 
184 SCODBDEF ; Class driver seve block 
185 SCDORPDEF :; Define Class Driver Req. Pkt. fields 
8 1 § SCLUBDEF ; Cluster bloc 
1 SCLUDCBDEF 3 Quorum disk control block 
0 1 3 SDCDEF 3; Device classes 
0 1 SDOBDEF 3; Define Device Data Block fields 
8 190 SDDTDEF : Define Driver Dispatch Table fields 
191 SDEVDEF 3; Define device characteristics bits 
88 13 SDYNDEF 3: Define block type symbols 
0 19 SFKBDEF 3; Define Fork Block fields 
00 194 SHM1DEF : Define ODS-1 home block fields 
B05 195 SHM2DEF ; Define ODS-2 home block fields 
00 136 SIODEF ; Define 1/0 function codes 
000 19 SIRPDEF : Define 1/0 Request Packet fields 
4 198 SMSGDEF ; Define system message type codes 
00 199 SMVMSLDEF 3; Define MV message List symbols 
43 00 SPRDEF ; Define processor registers 
000 01 SPTEDEF ; Define Page Table Entry fields 
44 8 $SCBDEF 3; Define Storage Control Block offsets 
000 0 SSSDEF ; Define system status codes 
4444 04 SUCBDEF 3; Define Unit Control Block fields 
000 05 SVCBDEF ; Define Volume Control Block fields 
0000 Bg 
44 07 ;+ 
990 08 ; BUILD_TABLE 
000 09 ; 
444 10 ; This macro builds entries in a table of mount verification messages. 
00 11; The table is used to coordinate messages broadcast to OPAO with 
000 \¢ 3 messages sent to OPCOM. It existance allows both kinds of messages to 
508 1? ; be referenced by a single value, the table index value. 
000 3 3 This table is also used by mount verification routines in various 
00 1g : drivers. The driver-specific mount verification routines are passed 
8 17 ; the base address of the table. From this they can determine the 
0 18 ; address of the SEND_MESSAGE routine, and by scanning the table, they 
4 19 ; can determine the table index to supply to SEND_MESSAGE. 
09 1 ; Parameters: 
‘ 3 index symbol to be assigned the index value for a given message 
; 4; opcom OPCOM message number for a given message 
$3 text OPAO broadcast text for a ; ven message 
§ : flags bits givin special properties of a given message 
3 the allowable reoee are: 
5} ; MVASLSM_NOSUFF I OPAO breadcest should not include 
3 ‘Mount verification in progress. 
9 : MVMSLSM_SUPRESS message send ing can be supressed by 
; : UCBSV_SUPMVASG 
p 4 -MACRO BUILD_TABLE index gpecn. texte flags=0, 711 
5 T1IF = NDF TABLE_INDEX, fABLE_INDEX= 
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§ ENABLE LSB 
. SAVE 
} -PSECT WMOUNTVERMSG 
L1: eASCIC text 
40 e RESTORE 
41 » WORD — 
ts -WORD _ flags 
4 -ADDRESS L1-EXESAB_MVMSLBAS 
44 DISABLE LSB 
0 45 index = TABLE_INDEX 
23 TABLE_INDEX = TABLE_INDEX + 1 
43 > -ENDM BUILD_TABLE 
0 49 : Own storage (read only) 
BR ee eee 
0000 $3 26 »PSECT WIONONPAGED LONG 
$009 54 ; The following is the MVMSL passed to driver specific mount verification 
8000 22 3 support routines. 
0000 2$ ASSUME MVMSLSL_SNDMSGOFF EQ -4 
000 58 ASSUME MVMSLSW_MSG_CODE €Q g 
000 59 ASSUME MVMSLSW_ LAG EQ 
000 60 ASSUME MVMSLSL_TEXTOFF EQ 4 
44 o] ASSUME MVMSLSK_LENGTH EQ 8 
00000402’ ita 8g «ADDRESS SEND_MESSAGE = EXESAB_MVMSLBAS ; Offset to SEND_MESSAGE 
0004 264 EXESAB_MVMSLBAS:: 
0004 65 BUILD_TABLE index=OFFLINE, OpcomenS6S _DEVOFFLINK. - 
004 06 f Lags=MVMSLSM_SUPRESS, - 
Bne of text=<'' is offline.'> 
000C 69 BUILD_ TABLE index=WRONGVOL, opcom=MSG$_WRONGVOL, - 
0 oy text=<"' contains the wrong volume.'> 
0014 Le: BUILD_TABLE index=WRITELOCK, opcom=MSG$_DEVWRTLCK, - 
Bare iS text=<"' has been write-locked.’’> 
001C 75 BUILD_TABLE index=MVCOMPLETE socgantieee MVCOMPLETE, - 
O01C 276 flags=<MVMSLSM_NOSUFFIX ! MVASL$M_SUPRESS>, - 
Boas of text=<'' has completed mount verification.’ 
88 4 7 BUILD_TABLE index=MVABORTED Ope panAISGS _AVABORTED, - 
4 0 flags=MVMSL$M_NOSUFFIX, - 
1 text=<"' has aborted mount verification.'> 
C i : The following message text is part of every message, and does not 
: : 3; require an entry in the message table. 
$90 § PSECT WMOUNTVERMSG 
49 $p 4D 45 54 53 59 53 $2 07 07 7 8 PREFIX: .ASCIC ‘“ZSYSTEM-I-MOUNTVER, "' 
0 2C 52 45 56 54 4E 4F 4D 2D H 
72 65 26 20 74 6E€ 75 6F 40 2 20 28° e 289 SUFFIX: .ASCIC ‘* Mount verification in progress.’ 
6E 69 20 6E 6F 69 74 61 6 6 6 A 
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The following Literal is used as carriage control 
n the message sent to the operator's console. 


R_CTRL = *XOA0D 3 <cr><lf> characters 
RCTRL_SIZE = 2 ; Size in bytes 


>> 
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: -SBTTL EXESMOUNTVER - initial entry point 
EXESMOUNTVER 
Functional description: 


vou~008" EXESHOUNTVE 


Mount verification is the mechanism wnereny Files-11 volumes are 
are brought back online after a catastrophic (but hopefully transient) 
hardware problem has rendered the volume unusable. 


This is the main routine, and initial entr oy - the 
mount verification code. for a Setai leg discussion ¢ 
the implementation, please see the section entitled esign Notes”. 


Input: 


OBE RO,R1 = 1/0 status 
OBE Re = tch 
OBE R = IRP address 
OBE RG = scratch 
OBE RS = UCB address 
OOBE 0(SP) = return address of caller 
4(SP) = return address of taller’ s caller 
Output: 
None. 


Side Effects: 


Providing that whatever external event has caused a eo 
volume to undergo mount verification has been correc e4. 
normal 1/0 activity will resume on the device. Otherwise, 
the volume will do no useful work until mount verification 
is complete, and will appear to be hung. 


Design Notes: 


Mount verification (MV for short) is only done for FILES-11 
disk volumes. Tapes are already covered by the pognetic 
tape ACP, and handling foreign disk volumes would open a 
security hole that would be itficult to close. 
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There are two err . ,con itions thet can cause a volume to 
undergo mount verification. rst arises when a volume 
is somehow hardware ut telocked sometime after it was mount 
write-enabled. (The writelock r ption, mechanism is covered 
in detail in the funtional descr on of the WRITLCK_HNDLR 
rout a and will not be covered here.) 


The second. and more serious, situation is the result of the 
ng une? red got tuare invalid. The volume-va 

bit in the volum ty UCB is cleared by the iver when it 

detects as tuati on that warrants such etic such as the 

device seeuring an ONLINE interrupt. This implies th shes the 

volume has been driv down, and then spun bac A Ae 

contents of the drive may not be the same. 3 RV" ; _ = 
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to notify the operator of the situation, and to verify that 
the volume (if any? now in the drive is the same one that 
was there originally. 
What follows is a series of one-liners and short paragraphs 
that are meant to explain various design decisions, and 

to explain obscure parts of the code. There is no particular 
order to the notes. 


The cell EXESGL_SVAPTE maps the MV work page into SO space, 
and is set up by INIT at system boot time. MV used to use 
the blackhole page for its 1/0 operations. However, the 
read-modify-write operations performed by shadow set state 
ghange erpcegs tng prohibit this. Permanent provision of a 

12 byte buffer for MV is preferable to dynamic allocation 
of the space because a pileup of MV requests might make 
allocation of the needed space impossible. 


Broadcasting a message directly to the operator's console 
is done to ensure that someone is notified of MV by in 
progess. OPCOM cannot be relied on since it may not be 
present, or the very nature of the problem may prevent it 
from operating (eg. OPCOM is swapped out, and the system 
disk is undergoing MV). 


The code is optimized for size over speed, since the code 
is infrequently executed, but must be resident. 


Once MV starts, normal I/0 activity on the device ceases until 
MV completes or the volume is dismounted. Unfortunately, there 
is a deadlock problem with the ACP, because to dismount a volume 
an ACP I/0 request must be done to the volume, and that can't 
happen since we're in MV, so the ACP hangs waiting for the 1/0 
to complete. Worse, requests will pile at the ACP, and 

other processes will be hung by the hung ACP. The situation 
clears itself up nicely when MV completes. 


MV consists of the code in this module, support routines in 
other modules, and a driver-dependent piece of code that 

is petnted to by the driver's DDT. The covention is that 
if is nonzero, the routine should assume that R3 points 
to an IRP and requeue the IRP. If R3 is zero, dequeue the 
first IRP_ and resume normal 1/0 activity. The cell in the 
DDT is DDTSL_MNTVER, and it defaults to IOCSMNTVER. 


MV is entered by the common 1/0 completion routine, IOCSREQCOM. 
This may be different for DISK_CLASS drivers. 
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0000 «PSECT WIONONPAGED 
-ENABL LSB 
EXESMOUNTVER: : ; Initial entry point 
: See if an IRP was supplied. If not, skip all the checks and I/0 cleanup. 
5 D TSTL R3 
33 3 BEQL 35$ 


: Determine if mount verification is possible and necessary. 


: Ignore all internal IRPs (including MV IRPs). 


0 
C 404 
7 
& 209 
02C 4 8 
02C 40 
C $19 : 
C 41 
tig 
3 4) 
414 
8 415 
218 
08048 
0c AS. DS «(00 419 TSTL — IRP$L_PID(R3) ; Is this an internal IRP? 
; Branch to exit nterna < 
47 19 4 ? 9 BLSS 10$ B h it if i l IRP 
00 4 § ; The device must be file oriented, and contain a mounted 
0035 4 + volume that is not mounted /FOREIGN. In addition, the volume 
0035 424 3 must have a VCB with the 
bees 425 3; The one time this is not true is if this is a cluster that is out 
0035 426 ; out of quorum, In this case, we must go into mount verification in 
Oose : ; order to stall all 1/0 
Of E1 0035 429 BC #ODEVS$V_FOD,- : Branch if device not file oriented 
42 38 A 0037 430 UCBSL_BEVCHAR(RS),10$_—_—;; 
EQ QO3A 431 BBS #0 $QD,- ; Is this a sequential device? 
30 38 AS Onse $36 UCBSL_BEVCHAR(RS),10$_—_—; 
05 30 OO3F 4 BSBW QUORUA 3; Is it out-of-quorum cluster 
38 54~=CCCéEB8 Bpe8 434 BLBS R4,20$ : Yes 
3364 A5 15 E& Q04 435 BBSC #uCBSV CLUTRAN, - ; Branch if here due to a VAXcluster 
004A 436 UCBSL_STS(R5), 208 3 state transition (and clear flag). 
13. €1 OO4A 437 BBC #DEVSV_MNT,- ; Branch if device not mounted 
2D 38 AS Beer 438 UCBSL_BEVCHAR(RS) ,10$ : 
18 €0 QO4F 439 BBS #DEVST_FOR,- 3; Is this a foreign device? 
28 38 AS OF 3) 237 UCBSL_BEVCHAR(RS),10$_—_; 
$084 rei ; Check the VCBSV_MOUNTVER bit to ensure the volume 
oee ree : is a candidate for mount verification. 
54 34 AS 00 054 445 MOVL UCBSL_VCB(RS) ,R4 : Get the VCB address 
$s 1 058 rr BEQL 10$ ; Exit if none 
2 ie Bea 44 BBC #VCBSV_MOUNTVER,- ; Exit if bit not set 
1D 53 A4 O5¢ 448 VCB$B_STATUS2(R4),10$ 
OSF $29 : If the medium is offline, or the volume is 
ber ? 1 : invalid, the error can be recovered from. 
50 O1A4 BF BI 5F 238 tmPw #SS$_MEDOFL,RO : Is the media (disk volume) offline? 
7 Es 64 454 BEQL 20$ : Branch if true 
50 0254 8F_ 81 66 455 CMPW Shera VOL INV RO : Is the volume invalid? 
| ae oe +28 BEQL 2 ; Branch if true 
6D 458 : If the volume has been writelocked, make sure that it was 
6D 459 : an accidental writelock. If the software writelock bit is 
6D 460 : on, then the volume was mounted with the volume write protected. 


NTV 
v04-00 


gr 


14 AS 


50 8=6025¢ 4 


19 
03 38_A5 
0366 


OD 
00 2A 43 
034 


0352 
8E 


00000000 ' GF 


50 
50 00000000'GF 


= Mount Verific 
EXESMOUNTVER = 


6D 461 ; If the bit is not set, then the volume has been mounted for 
¢3 ies ; read/write access, and has since been (accidentally) write protected. 

81 : 464 tmpw #588 WRITLCK RO : Is the device writelocked? 

is 465 BNEQ 10$ ; Branch if not 

E 7 £08 BBS #DEVSV_SWL,- ; Branch if software writelocked 

4 rf UCBSL_BEVCHAR(RS),10$ ; 
3} 79 4 3 BRW WRITLOK_HNDLR ; Recover from accidental writelock 
5 143 133 108: RSB ; Mount verifcation is not called for - exit 

970 471 : The error can be recovered from. 

E5 $3 138 20S: BBCC #IRPSV_MVIRP,- ; Clear the MV bit in the IRP. 
Ore 474 IRP$W_STS(R35,30$ F 

30 a88 $f? 30S: BSBW CLEANOP_10 ; Clean up the I/0 operation 
085 139 : per rece any driver-specific initialization for mount verification. 
bBe $78 ; RS points to the device UCB, and R3 points to the IRP. 

30 0085 480 BSBW DRIVER_CODE 

DS 44 $3) 35$: TSTL (SP)+ : Discard the return address 
Boa 183 : This entry point is used to start mount verification without having an error 
008A rtf: 3; IRP 
Boea 485 ; 

83 A $38 MNTVER_NOIRP: 

E2 OO8BA 4 BBSS #UCBSV_MNTVERIP,- ; Set mount verification in progress 
Bane = UCB$W_STS(R5),10$ ; (return to caller's caller if already set) 
OoRe 739 : Inform interested parties that the device needs attention. 

be 008F 136 : MOVL #OFFLINE,R4 ; Set message code 

0 boos rhs BSBW SEND_MESSAGE ; Send message 
38 tee : Allocate an IRP. If non exists, exit. 

3c 60095 499 MOVZWL #IRPSK_LENGTH,R1 ; Set IRP size 

16 OO9A 498 JSB GE XE SALONONPAGED ; Allocate an IRP 

4 Boag 499 MOVL R2,R : Copy IRP address 

E OA 89 BLBS RO,40$ :; Branch if success 

es 0A6 1 CLRL R ; Signal the no IRP was allocated. 

1 ae 8 BRW ERROR_EXIT ; Exit if no IRP available 
GOB Be : Calculate the maximum time for which we will 
AB 5 ; continue to attempt mount verification. Store 
4 88 ; the value in the IRP. 
3C hy O3 dos: MOVZWL G*IOCSGW_MVTIMEOUT,RO ; Get delta time . 
C1 008 9 ADDLS G*EXESGL_ABSTIM,RO,- 3; Add site-specific delta time to current ti 
OBB 10 IRPSL_ASTPRM(R35 : Fall through... 
088 1 ; 
088 13 ; Decide whether or not this is a cluster that is out of quorum. 
14 ; From this point on the meaning of R4 is: 
15 ; => normal mount verification 
1§ : 1 => out of quorum 
088 7: -1-> out of quorum and pack-ack completed 


; 
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BB 18; 
04AB «30 $e 19 BSBW QUORUM ; Get indicator in R4 
ee 1 -DSABL LSB 
BE : BUILD_PACKACK_IRP: 
0202 30 4] : BSBW INIT_IRP ; Set request-independent fields in the IRP 
0C1 $ : Determine if the device supports a PACKACK function. 
0C1 ; If it does, then issue a PACKACK request, else attempt 
$2 8 3 to read the volume's home block. 
08 E2 p C1 0 6BSS  #UCBSV_VALID,- ; Set volume valid 
00 64 A C3 1 UCBSW_STS(R55,10$ : 
51. 0088 ¢5) 00 00C6 § 108: MOVL UCBSL_DDT(R5) ,R1 ; Get address of DDT 
51 08 Al 00 00CB : MOVL DDTSL_FDT(R1),R1 ; Get address of FDT masks 
61 08 €1 OOCF 4 B £}09_PACKACK, (R1) »= ; Branch if PACKACK not supported 
16 2005 ; 5 $ 3 
ite 2 ; : Set the request dependent fields in the IRP and start the I/O. 
0005 539 20$: | ASSUME I0$_PHYSICAL GE 10$_PACKACK 
BO 00D 540 MOVW #<IRPSM_PHYSIO ! - ; Set physical 1/0 function 
00D4 541 IRPSM_MVIRP>,- ; Mark this a mount verification IRP 
2A AS 2100 8F 00D4 246 IRP$W_STS(R3) : 
0808 8F BO 0009 54 MOVW  &#<IOS"PACKACK ! I0SM_INHERLOG>,- 
20 A3 OODD 544 IRP$W_FUNC(R3) ; Set function code, inhibit error logging 
02B5 30 tga 2? BSBW EXESMATVERSIO ; Start 1/0 request 
O0E 347 : When the PACKACK I/0 is done, control returns here. 
0484 30 O0E 549 ° BSBW QUORUM : Is it out-of-quorum cluster 
38 a E9 poeR 220 BLBC tT atehaiaiat ; If failure, try again 
54 54 CE OOE9 333 30$ MNEGL R4,R4 : Indicate pack-ack succeeded 
39 12 OOEC 55 BNEQ  QUORUM_LOOP : No quorum 
0491 3 OEE 554 BSBW T_vcB ; Check for Legally absent VCB. 
OF OF1 555 BEQL : Branch if VC opees ly absent. 
OOAC 4 OOF3 228 BRW BUILD_RDHOME_IRP ; Otherwise, go check the volume. 
0107 1 QOOF6 557 39S: BRWw NORMAC_EXIT ; Branch assist. 
B35 HE pause: 
it) 60 ; : If out-of-quorum, skip all checks and just wait a while. Else, 
Boe 2) 3: check for VTIMEOUT expired on shis request or VCBSV_ T 
OF9 6¢ ; clear (indicate abort mount verification). If mount verification 
aFg 97 ; still ok, wait. Else, abort. 
20 54 8 OF9 565 BLBS = RA, -158 : If no quorum, skip checks. 
483 Ore 66 BSBW Ss GET_VCB : Get VCB address. 
14 A3. 09000000'GF 01 ore 44 CMPL 6 CRESS. ABST IA. ~ ; Have we run out of time? 
OA 1F 0107 $3 BLSSU 185 ve ; Branch if we still have time. 
if 109 0 TSTL RO ; Out of time. Is there a VCB? 
1 1 71 BEQL 208 ; Branch if no VCB to update. 
53 AO }3606040—S BA_s«010D ys BICB #<lavCBSV_MO rt tea - ; Else, disable mount verification. 
111 7 yeGs6_STATUS (RO) 
11 11 111 74 BRB $ ; Then abort. 


ay 


51 


64 AS 


00000000 ' GF 
51 0084 


51 10 Al 
50 4C AS 
5 


a 


00080000 8F 
50. 53 
00009900" ¢f 
5 2 
00000000 ' GF 


00000000 ' GF 
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IRPS$W STS(Res 128 i pretend it is MV IRP 
12$: PUSHR M<R3,R4,R5> 
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1) 1 75 10$ TSTL RO 3; Still have time. Is there a VCB? 
1 1 6 BEQL 15$ ; Branch if no VCB to check. 
E 1 7 BBC #VCBSV_MOUNTVER, = ; Abort MV if MV is now disabled. 
11¢ i: VCB$B_STATUS2(RO), 20$ 
39 11C 79 15$ BSBW TIME BELAY ; Pause for a bit 
‘ 11F 9 BLBS R4 ,QOORUM_LOOP ; We are waiting for quorum 
1 01 é RB BUILD_PACRACK_IRP : Retry the packack 
31 } 5 § 20$: BRW ERROR_EXIT 3; Exit 
127 4 ; Check for quorum IRP and issue it if found. 
1 4 5 ; Wait a while longer if still no quorum 
107 5 QuoRUM_LOOP : 
DO 0127 8 MOVL G*CLUSGL_CLUB,R1 
DO 01 : 9 MOVL UBSL_CCUDCB(R1),R1  ; Get quorum disk control block 
1 1 0 BEQL 3; None 
i) 135 91 MOVL UYDCBSL_IRP(R1),R1 ; Quorum IRP 
1 139 35 BEQL 3; None 
9 138 9 MOVAB EaPRh .SORPL ERS) oAO ; 10 queue 
D 15F 94 MOVL RO,R 
dO 01 z 95 10$:  MOVL (R2),R2 ; Next IRP 
p 3 %6 CMPL 0,R2 
D 14A 98 
1 14D 99 EQ 1 ; Not an interesting IRP 
0 14F 00 REMQUE (R2),R2 : pequevs the quorum IRP 
EJ O15 601 C #DEVSV_MSCP,UCBSL_DEVCHAR2(R5),15$ ; Standard disk 
E 01 g 08 BBSS #IRPSVMVIRP ; Let the 1/0 go through 
0 C 04 
15E 05 
0161 06 
4 7 07 
169 Be 
01 09 ; 
01 10 : 
4 1} 
18 
14 
18 j 
7 
15 


WoOk——OUI0Oo NOCOOo =FsS8 NM FMW" W OCOMNWOWwWOoo 


#* 

i) MOVL ; Quorum IRP 
1 JSB G*{OCSINITIATE : Go start the 1/0 
8 POPR #*M<R3,R4,R5> 
1 BRB 20$ : Continue 
C 15s BISL #UCBSM_MNTVERPND ,UCBSL_STS(R5) ; Get control back after 1/0 
D MOVL R3,R ; Mount verification IRP 
1 JSB G*COMSDRVDEALMEM : Free it 
) C MOVL R 3; Quorum IRP 
1 F JMP G*{OCSINITIATE : Go do 1/0 
D 2 208 MOVL  G*CLUSGL_CLUB,R2 
3 C oe #CLUBSV_GUORUM. CLUBSL _FLAGS(R2) .30S ; At last we have quorum 
1 : BLSS 25$ ; Go wait some more 
; 5 BRW BUILD_PACKACK_IRP 3; Pack-ack not done yet 

8 gos: BRW PAUSE 
4 O$: CLRL Indicate we now have quorum 
1 


Check for ea" ly absent VCB. 
Branch if VCB is Lope) iy sneent. 


GET_vCB 
BEQL $NORMAL_EXIT 
Else, test volume valid 


y- 


Validate that the correct volume is still in the drive. 


First the home block is 


The validation is performed in two steps. 
If that test 


read and checked against fields stored in the VCB. 


DELP XPA PAPA A PA PADA ADP DED DED DED DED DED DD DEDEDE DPI VSS VSVSIVSTIVSIVSITSVS VST TSI ISIS 


Weronononononononononyd 


—OOONOULSWN—O 


>>> >> >r>r>Yr DOO OC OMMS INNIS SSAA IIE FBS EFI eae 


MPIPSPIININOD 


ee a at ed tt = = = = 


COOOCOOOOOOOoOoO 


R 
BEQL 20§ 3; End of queue 
cork ne gr 3; Is this the quorum IRP 


Vv04 
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NINER Boun nt Verification r 
EXE MOUNTVER = initial e entry ‘point -SEP-1984 SYSLOA. SRC JMOUNTVER.MAR; 3 ) 
1A g 5 3 sesceeth. the storage control block is read and checked ageinet fields 
1A 3 stored in n the VCB. If either test fails, wrong volume mount 
1A ? 2 i 3 verification is mT, 
A 6 $ buitp _RDHOME_IRP: 
00B4 30 1; ? 8 BSBW GET_BUFFER ; Obtain ownership of MV work buffer. 
i" 279 ; Read and validate the home block. 
011 30 OA 64 BSBW INIT_IRP i Initialize IRP. 
ss AS 8 1A8 eis MOVL yeast. VCB(R5), RO ; Get VCB address. 
0088 ¥4 1AE bcs Bra. FREE BUF _ERRXIT B h if VCB add 
; Branc no address. 
50 24 Ad 8 1B1 646 10$: MOVL vCasC HORELBN (RO), RO ; Get home block L 
0128 185 64 BSBW RP 3 setup IRP for home block read. 
01DC 0 0188 968 BSBW EXESANTVERSIO : Do the read. 
03AB 0 Q1BB 64 BSBW QUOR 3; Is it out-of-quorum cluster 
04 54 €9 O1BE oe BLBC R4,2 4 : Yes 
50 04 gic 651 CLRL R :; Error status 
54 11 Bite 036 208: BRB VALIDATE_FAILED ; WE don't want to succeed without quorum 
50 38 AS «6 E9 «€601C5)~=—s (654 - BLBC IRPSL <rtin te 3; Branch if error occured on the read. 
Bie) 655 VALIDATE_FAILE 
0137 30 O1C9 $28 BSBW VALIDATE” HOM he ; Validate the home bloc 
4A 50 €9 Bice tH BLBC RO, VALIBATE FAILED ; Branch if home blk. ser dette failed. 
pier o23 ; Read and validate the storage control block. 
OOF 1 30 Bice 661 BSBW IN ; Initialize IRP. 
50 34 a5 OD 1D2 66 MOVL ieasc. VCB(RS) ; Get VCB address. 
64 13 0106 66 BEQL FREE BUF BERRXIT : Branch if no VCB address. 
50 34 a0 01 C3 0108 664 SUBL3 #1 ; Get storage control block LBN. 
O10 665 VCBSL_SBMAPLBN(RO), RO 
0103 0 QO1DD 666 BSBW INIT_TRP D 3 getup IRP tor home block read. 
01B4 0 pied 667 BSBW EXESANTVERSIO 3; Do the read 
0383 0 A: 66 BSBW QUORUM s Ie it out-of-quorum cluster 
04 54 E9 166 66 BLBC R4,3 ; Yes 
50 D4 RIED 670 CLRL 3; Error status 
Be a ae iF oft $08 BRB VALIDATE_FAILED ; WE don't want to succeed without quorum 
28 38 AS OED bie $78 : BLBC IRPS$L_MEDIA(R3), ; Branch if error occured on the read. 
1F1 674 VALIDATE FAIL ED’ 
14 3 1F1 8 675 BSBW VALIDATE-SCB ; Validate the storage bloc 
22 5 E ire of8 BLBC RO, VALIBATE_FAILED : Branch if SCB validation “Failed. 
1F7 978 3; Mount verification has succeeded. 
1F7 0 67 + Release the MV work buffer, inform the world that this yoluns has 
a4 ? 9 ; returned to the living, and drop through to a normal exit 
0089 30 F746 § BSBW FREE_BUFFER ; Release MV work buffer. 
54 3 3 1FA 6 MOVL #MVCOMPLETE, R4 > Set success message code. 
0206 30 O1F 6 4 BSBW § SEND_MESSAGE : Signal the world. 
3 é Ri : This is the common exit path for mount verification. 


Return all resources, clear MNTVERIP, and resume normal 


H 3 
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; 1/0 activity for the device. 


ame} R3,R0 ; Copy IRP address 
00000 2 i §B Let onsoRvDEAL NER Branch if no IRP was allocated. 
64 AS BO0ECOOD BF 


Deallocate the | 
10$: BICL #<UCBSM_MNTVERIP ! = Clear MNTVERIP and WRONGVOL 
UCBSM_WRONGVOL ! - and SUPMVMSG 
UCBSM_SUPMVMSG>, - 
UCBSL_STS(R5) 
Clear pointer to IRP 
Bien DRIVER_CODE ; Be gr tversapeety te clean-up 
x 


Bete Ge Ge Ge Se Ge Ge See 


: Attempt to recover from an error encountered while reading 
3; the home block or while validating the volume. 


VALIDATE_FAILED: 
6SBB_.SsFREE_BUFFE 


e R Release MV work buffer. 
CMPW #SS$_INCVOLLABEL ,RO 


; Is this the correct volume? 
BEQL 20$ : Branch if not 
BBSC #UCBSV_WRONGVOL ,- ; Clear WRONGVOL bit 


UCBSW_STS(R5), 10S 
PAUSE ; Retry mount verification 


: The wrong volume is in the drive. If this is the first time 
; for this volume, inform all interested parties of the event. 


208: BBSS § #UCBS$V_WRONGVOL,- : Branch if not the first time 
UCBSW_STS(R5),10$ : 
— RG 3; Save quorum indicator 


— tt 3 4 4) A QOOTOKOTOOOOCOOOOOOOOOOOC 


#WRONGVOL ,R4 Set message code 
BSBW SEND MESSAGE Send message to console 


BRB 10$ ; Try again 


: This is the error exit path for mount verification. 
3; Since the operation never completed, clear volume valid 
3; to prevent the volume from being used. 


FREE_BUF_ERRXIT: 
FREE_BUFFER ; Free MV work buffer, then error exit. 


#MVABORTED ,R4 


VL Set message code 
BSBW SEND _MESSAGE 


Send message to console 
Clear volume valid and join common code 


BBCC #UCBSV vai ie - ; 
UCBSW_STS(R55 ,- ; 
NORMAC_EXIT : 
BRB NORMAL _EXIT : Branch to common exit code 


NNN NSS SESS PF AA AAAAOAAOAS 


! 
$ 
; 
9 
, 
5 
; 
8 
6 
108: BRwW 
5 
; 
8 
5 
; 
8 
; 
5 
; 
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rt} Q see - SBTTL a wie - allocate an 1/0 buffer 
4B 4 : GET_BUFFER 
48 fag ; Functional description: 
48 £46 : This routine will attempt to allocate the MV work page, 
48 747; for to the yt et If the page is not busy, the 17°9e,! 
4B ree : marked busy and control returns to the cal er. he pave 
4B 749 ; is busy, the caller's content is folded up inte the COR 
48 750; attached to the input internal IRP and the CDRP is put on 
48 f ; the a ee page wait queve. When the wait queue entry is 
4B : processed, input context is restored and control is return 
48 f 33 to the caller, who now owns the MV work page. 
0 4B £39 : Input: 
0248 38 : Re = Mount worst saaesen IRP address (CDRP used as fork block) 
9 48 758; R5 = Device UCB addre 
48 759; (SP) = Return address for caller 
8 is 760 : 4(SP) = Return address for caller s caller 
BS fg | ower 
0248 764: R3..R5 are preserved. 
Bg fe 
0 re oe 3; Define cells used to control access to MV work page. 
0248 7 ALIGN LONG 
00000000 024C 770 EXESAL _WRKWQFL: t PONG 0 ; Work page wait queue. 
00000000 0250 771 EXESAL_WRKWQBL: .LONG 0 
00000000 0254 ak EXESAL_BSYIRP: .LONG 0 3; Current buffer owner IRP. 
00 38 773 EXESAB_MVWORK: .BYTE 0 ; Byte of storage belonging to the 
3 a 3; MV work buffer owner. 
Q 22 ore GET_BUFFER: 
FEAF DS 0259 778 TSTL —B°EXESAL_BSYIRP : Is the work buffer currently ouned? 
‘iii 5C ry BNE 4s ; Branch if work buffer is owne 
F2 AF $3 D 5 780 ROVL R3, B*EXESAL_BSYIRP ; Else, setup address of current owner. 
0 $ f 1 RSb ; Return to caller 
6 f § : The page is busy. rut ihe catier in the wait queue. 
55 60 A3 9E 0263 785 108: MOVAB IRPSL FOFL (RS) RS : Get CDRP for use as fork block. 
10 AS 7D 0267 7 6 mova =—s RB R3(R5) > Save R3 and R4. 
Oc AS BED 6B 7 POPL ic Pet pss : Save return address 
DA D gf 7 3 TSTL AL _WRKWOFL ; Is work page wait queue initialized? 
ae ¥ ¢ 7 NEQ ; Branch if queue in: ized. 
D3 AF DS AF ODE eS oy MOVAL B*FxEsAL ee 3; Else, initalize a tien 
D2 AF DO AF ODE ag 135 MOVAL B-EXESAL“URKUOFL, - 
CE BF 65 OF 43 794 208: INSQUE tS). a6 @B™EXESAL_WRKWOBL ; Put CDRP on the work page wait queue. 
8 795 RSB ; Return to caller's caller. 
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wouaT yer = Mount Verific c 
v04-00 FREE_BUFFER = release an 1/0 buffer SEP-19 SYSLOA.SP.IMOUNTVER.MAR; 3 (1) 
138 a -SBTTL FREE BUFFER = release an 1/0 buffer 
38 ; FREE_BUFFER 
? : Functional description: 
( : : This routine is called by the current owner of the MV work page 
4; to make the page available. If the MV work page wait queue is 
5 3 not enpty a fork process will be created for the waiting device, 
§ ; and the MV work page will be given to that process. 
3 : Input: 
10 ; None. 
6 1b toe 
; Output: 
6583 Big 5 Ute 
8 4 13 : RO, R3...R5 are preserved. 
028 16 
8 H if FREE_BUFFER: ; Release an 1/0 buffer 
8 : i : Remove first entry from wait queue. If empty, then return. 
C6 AF 0 028 1 TSTL B*EXESAL_WRKWOQFL :; Is work page wait queue initialized? 
06 13 0 36 § BEQL ; Branch if @ not init'ed (ie. unused). 
51 C1 BF OF 028 REMQUE @B“EXESAL_WRKWOFL, R1 ; Remove first entry from wait queue. 
046 «#«1C 8 8C : 4 8 ; Branch if somebody was waiting. 
C3 AF D4 8E 5 108: CLRL B*EXESAL_BSYIRP ; Mark the MV work page as unowned. 
05 8 4! § RSB ; Return to caller. 
9 8 : Restore the waiting fork process's context 
2 3 ; and call it at its return address. 
39 BB 029 1 20$:  PUSHR #*M<RO,R3,R4,R5> : Save current fork context and RO. 
55 1 00 0294 ¢ MOVL 3 Copy fork block address. 
53 10A5 7D 8 97 MOVQ CDRPSL_FR3(R5), R3 ; Restore saved R3 and R4. 
7 ae dO 98 4 MOVL IRP$L_OCB(R3), RS ; Restore UCB address. 
Bi AF 5 dO oF 5 MOVL R3, B™EXESAL_BSYIRP ; Save address of work page owner. 
AS 6 ASSUME RPSL FPC EQ-<IRPSL_FQFL + CDRPSL_FPC> 
6C 83 16 A JSB aiRP Gap eC ERS) : Call waiting fork process. 
9 BA m $3 POPR #*M<RO,R35,R4,R5> ; Restore input context. 
5 A 9 RSB ; Return. 
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Ag e -SBTTL TIME_DELAY = Put mount verification into a wait state 
; TIME_DELAY 
Functional description: 
_— routine will put the specified nouns verification 
quest into a wait state for a short while. This i 


$s 
accomplished b per foraing a FORK_WAIT using the CDRP 
in the IRP/CDRP pair of the input internal IRP. 


3 = internal irp address 
R5 = device ucb address 


: Input: 


POPIPOPIPIPIPIPIPYPIPYPIPIPINPIPOPIMPOPIPOPOPIPIPIPIPIPIPNPYD 
>>>r>rrrrrr>r>r 
wonouovuown oon0ono 

DPE DPDPDP PAPA D Mer rss B 


OONAUE WN 9 OONAUE WP OOONOUE 


Output: 
- R3..R5 are preserved 
Ag 
O2A9 TIME _DELAY: ; Pause for a moment 
78 A3 8EDO 8 Ag POPL IRP$L_SAVD_RTN(R3) ; Save caller's return address. 
68 AS OB AS 90 AD MOVB UCB$B_FIPLTRS), = : Copy fork IPL to CDRP at tail of 
8 BS ee er mn aer ines : IRP. 
55 60 A3_ 9E B VAB_ _IRPSL_FQFL(R3), RS ; Get CDRP address. 
0286 FORK_WAIT ; Wait with CDRP as fork block. 
55 1C Ad dO O2BC 8 MOVL IRP$L_UCB(R3), R5 ; Restore UCB address. 
78B3 17 O02cO 8 JMP @IRPSC_SAVD_RTN(R3) ; Return to original caller. 


Verification royt ines »* mises 9 99: 48: 9? AX/VMS Macro V04-00 Page 1" 


aa = Mount 
v04-00 INIT_IRP = set request independent field : ~SEP=1 SYSLOA. SRC JMOUNTVER.MAR; 3 ) 
: re oie -SBTTL INIT_IRP = set request independent fields of the IRP 
¢ 73: INIT_IRP 
C 74; 
: g ; Functional description: 
C zg : Zero an IRP and then set certain request-independent 
: 4 : fields to their initial values. 
: : Input: 
C § : Re = IRP address 
: 7: fe = UCB address 
: 5 : Output: 
¢ 5 : RO, R1,R2 are overwritten 
C 8 ; preserve 
C 9; RS = IRP address 
C 90 ; R5 = UCB address 
qi 
3 : 38 INIT_IRP: ; Set request-independent fields of IRP 
0 : 3 : Zero the IRP. 
14 A3. DD 8 C 39 - PUSHL i IRPSL_ASTPRM(R3) ; Save the MV timeout time 
38 6B C 98 PUSHR #*M<R3,R4,R5> Save IRP and UCB address from MOVCS 
63 O0C4 8&F 00 60 9° 2c C 99 MOVCS oy, tR j #6 giRPRK LENGTH, (R3) Zero the IRP 
3 BA D 900 POPR <R a hestore IRP and UCB address 
14 A3 8EDO be 4d POPL TRPSL ASTBRM(R3) : Restore the MV timeout time 
0 + $08 : Set the request-independent fields of the IRP. 
0206 905 * : 
0 8 O08 3; Set the size, type and access mode fields. 
0 D6 «908 ASSUME IRPS$W_SIZE EQ 8 
D6 «=: 9909 ASSUME IRP$B_ TYPE EQ 10 
D60=—s« 9:10 ASSUME IRPS$B"RMOD €0Q 1 
08 A3 OO0A00C4 BF dO 4 ae MOVL #<<DYNSC_IRP@16>!IRPSK_LENGTH>, IRPS$W_SIZE(R3) 
0 oF $15 : Set the UCB address. All other fields remain zero for now. 
10 a3 55—s«éi a0 318 MOVL R5,IRPSL_UCB(R3) ; Set UCB address 
05 O2E 916 RSB 
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setup IRP for a one bloc 18: SYSLOA.SRCJMOUNTVER .MAR; 3 
«SBTTL A er = setup IRP for a one block read 
INIT_IRP_READ 
Functional description: 


petup IRP fields required for a read operation. Assume a one 
block read of the LBN specified in RO. 
Input 
RO LBN to read 
R IRP address 
UCB address 
Output 


RO ... R2 overwritten 
ALL other registers preserved. 


INIT_IRP_READ: 


SOOCOCOCSOOCOOCSCSOOOOOOCCOOOOOOOOOOOOOOCOOOOOO 35 
PIPPIN PIPPIN PMIPINIIPIIPIIIININY = Aer 


OTN RMMMMMMMMMMMMMmMmMmMmmnmMmmmmmmmrmrirhirmrnirnirnrrnicry 
WDOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO UO- 


MUN BERR REESE FWA AAAI OPONOPONPONONON 


MRM OOONOA UE WN 0 OONOAU EWN OOONOULS Wit O00 


20 AS = 080C BF BD MOVW #<10$_READPBLK - ; Set function: read block 
'TOSM_INHERLOG>, - : w/o error logging 
IRPS$W_FUNC(R 
ASSUME 10s, READPBLK LE IO$_PHYSICAL - 
2A A3 2002 BF AB BISW #<IRPSM_FUN ; Set req. status: read function 
'IRPSM- MVIRP>, ~ $ MV request 
IRP$W_STS(R3) 
2C AS 00000000'GF 00 MOVL FaPee CURB VE CR 5 - 3; Set transfer SVAPTE for MV work 
32 Ad. 0200 BF 3C MOVZWL #512, IRPSL_BCNT(R3) 3 gore transfer byte count of 1 block. 
00000000'GF 17 JMP G* 1OCSCVTLOGPHY : Convert LBN (in RO) to PBN, and 


return to caller. 
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14 AO 


54 
78 


50 34 AS 


64 AO 


FF SF 
0108 C4 


28 
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A. A.A. A.A AAAI WY J. AAAI IWIN IWAN AI AIAN AAA. AAAI ANNA AA 
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: .SBTTL VALIDATE HOME 
VALIDATE _HOME 


This routine will check to see if the home block that was just 
read contains valid data, and if so it will check to see if the 
home ge belongs to same volume as the one described in the 
VCB for this device. If both checks succeed, return success. 
If either check fails, return failure. 


Input 
TU adres 
Output: 
RO LBS ==> volume is servect 


LBC ==> some type of e 

EXESAB_MVWORK %s zero if the volume. Label comparison failed 
and one if it succeeded 

R3, R4 and RS are preserved. 


Side effects: 


WDOOOOOODOOOODOOOOOOOOWw DOOO0O0O 


C9 C9 C9 G9 09 C9 09 09 09 09 ISIN NI NSN NNN OPA AAA AAA A MUIMIUIUIVA 


DOONAN E WN O OD NAMES WIN OOD NOUS WN OODNOUnS 


<= Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge GeGe Ge Ge Ge Ge SseSse Ge Gets 


? If the wanune now phystcely pountoe in the device is not 
7 the same volume as the one described in the VCB, then the 
9 interested parties will be informed, and the mount verification 
| will be restarted. 
9 
2 ALIDATE_HOME : 
9 PUSHL R4 3; Save quorum indicator 
44 BSBB GET_BUF _ADDR ; Get virtual address of MV buffer. 
$91 3 
99 3; Com apere the volume serial number and volume name in the VCB 
99 3 with those stored on the etecs, If they are identical, then 
OG 3 this is the correct volume. e following seeumpt tons must 
a2 ; be true if we are to avoid eons lal-denten ODS-1 and ODS-2 volumes. 
$7 ASSUME HMSL SERIALNUM EQ HM1S$L_SERIAL 
43 ASSUM E ST“VOLNAME EQ HM1ST_VOLNAME 
00 hove UCB$L_VCB(R5), RO ; Get VCB address. 
3 BEQL VALIDATE_EXIT : Branch if no VCB address. 
¢ CMPL HM2SL_SERIALNUM(R4), - ; Check the volume serial number. 
VCBSL_SERIALNUM(RO) 
4 BNEQ VALIDATE_ERROR ; Branch if serial nos. not equal, 
5 CLRB W*EXESAB_MVWORK ; Assume Lobel comparison will fail. 
§ PUSHR #*M<R3,RZ,R5> : Save regi sters. 
CMPC3 uMoeT: VOLNANE - :; Check the volume name. 
8 HM2$T_VOLNAME(R4), = 
VCBST- VOLNAME (RO) 
10 POPR } M<R3,R4,R5> ; Restore registers. 


i 


> 
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; Branch if not the same volume. 
XESAB_MVWORK ; Else, set same volume flag. 
a4 04 3; Test home block checksum, and 


vOs-008. vat 


xe 


VALIDATE_ERROR: 


3; A difference has been detected between the block in the MV work 

; buffer (either the home block or the storage control block) and the 
; VCB. If the block checksum agrees with the caculated checksum, then 
; the eytune is incorrect. If the checksums do not agree, then the 

; preceived difference may be due to a corrupted disk block. In such 
3 cases the read must be retried. 


6SBB CHECKS ; Checksum the MV work buffer. 


ECKSUM : 
BLBC RO, VALIDATE_EXIT ; Branch if checksums differ. 
MOVZWL ass INCVOLLABEL, RO ; Else, set incorrect volume status. 
VALIDATE_EXIT: 
POPL RG 


RSB ; Return. 


bs tt a a ts tt tt =4 


SDODDSOOSCOODOOOOSOSOOSOOOOO Mm-« 
WUrororororororonofnon) 2 3 2 oe 


=O OONAVUE WO OONOUNE win 
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WINER 


wOUNTY fication routines poe 19360-1388 90: 18:9 AX/VMS Macro V04-00 Page 23 woe 


Macr 
SYSLOA.SRCJMOUNTVER.MAR; 3 (1) 


oe 
os 


ee «SBTTL VALIDATE_SCB 
VALIDATE _SCB 


This routine verifies the checksum of the storage control block in 
fhe MV work buffer. If the checksum is ok, the mount time in the SCB 
Ss compared to the conve ent value in the VCB. If the volume label 
tested in VALIDATE_HOME did not match, the volume-lock-names in the 

VCB and SCB are also compared. If all tested values are equal, 
success is returned. Otherwise, SS$_INCVOLLABEL is returned. 


R5 UCB address 
EXESAS_MVWORK is zero if the volume Label comparison in 
VALIDATE_VOLUME failed and one if it succeeded 


Output: 


RO LBS ==> volume is correct 
LBC ==> some type of error 


Ri and R2 are overwritten. 
ALL other registers are preserved. 


VALIDATE_SCB: 
PUSHL Save quorum indicator 


DOD : 
42 10 GET_BUF _ADDR ; Get the MV work buffer VA. 
50 34 AS 9 MOVL UCBSL_VCB(RS), RO ; Get VCB address. 
fe BEQL VALIDATE EXIT ; Branch if no VCB. 
0090 CO 2E Ad” D1 CMPL SCBSQ_MOUNTTIME(R4), - ; Compare mount times in the SCB 
VCB$Q_MOUNTTIME(RO) 3; and in the VCB. . 
E 12 BNEQ VALIDATE_ERROR ; Take error exit if times don't 
0094 CO 32 AG D1 CMPL SCBSQ_MOUNTTIME+4(R4), =; match. 
VCB$Q_MOUNTTIME+4(RO) 
08 i BNEQ VALIDATE_ERROR 
OD FEFE CF E BLBS W*EXESAB_MVWORK, 50$ ; Branch if VALIDATE_VOLUME succeeded. 
38 BB PUSHR #*M<R3,RZ,R5> : Save registers. 
0080 CO 22 A4 OC 29 CMPC3) #VCBS$S_VOLCKNAM, - ; Check the volume-lock-name. 
SCB$T_VOLOCKNAME(R4), - 
BST_VOLCKNAM(RO) 


vcB$ 
#* 


SPOR HSS LS DAS HSMOOA LOMA AAOOOOOAOAOAAAOAAOOHAAAOOAOOOOO 1 < 


OGOOOGOCOCOOOCOCOSOOSOCOOS SOOO OCOCOCOOCCCO OOOO OCOGOOCOOOOOOCOOCOO FI 


38 BA POPR M<R3,R4,R5> ; Restore registers. 
6 \s 6 BNEQ VALIDATE_ERROR : Branch if not the same volume. 
9 6 50$ BSBB CHECKSUM ; Test SCB checksum, an 
4 8—D0 6 POPL 
05 6 RSB 
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1 we ~SBTTL CHECKSUM = compute FILES-11 structure block checksum 
; CHECKSUM 
Functional description: 


This routine computes the FILES-11 structure block checksum and 
compares it to the checksum stored in the FILES-11 structure block. 
If the checksums match, a success status is returned. 

Input: 
RG = FILES-11 structure block buffer address 


Ouput: 


cae net ad aD WD es ae 3 a 


RO = status value 
R3 and RS are preserved 


CHECKSUM: ; Compute FILES-11 block checksum 


3; Note: the FILES-11 structure block checksum is stored in the Last 

; word of the structure. After the checksum Loop completes, R4 points 
; to the stored checksum and R1 contains the computed checksum. The 

:; following assumptions must be true for this technique to work. 


ASSUME ts org te bd op ge HM1$W_CHECKSUM2 
ASSUME HM2$W_CHECKSUM2/2 EQ 255 


ONIN NN DDD DD DDD DDD PAA AAA AAO AO 
RNS SY NLM MMMM MMMM MMM MmMmMmmMmmmrmrmirncricricricricvicvieric riers 


3 BQO OOOO DOOOODOOOOOO 


St MOOT OTOOOOCOOOOVOOOOOONO 


DNAULE WN OOONAUE WN 9 OONAUE WI OOONOAU Ewin 


hn 8 a te nt nt We td a 


50 7C CLRQ RO z Assume failure; clear total 
52 FF 8F 9A MOVZBL #255,R2 ; Set loop counter 
51 8% AO 10$: ADDW (R4)+,R1 ; Sum adjacent words 
FA 52 «FS SOBGTR R2,10$ ; Branch if more to go 
64 51 Bi CMPW R1,(R4) 3; Compare checksums 
02 12 BNEQ 13§ ; Branch if not equal 
50 t3 INCL RO ; Set success status 
0 13$: RSB ; Return 


$3 
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SYSLOA.SRCJM MOUNTVER.MAR; 3 
-SBTTL GET_BUF_ADDR 
GET BUF _ADDR 
This routine returns the virtual address of the MV work buffer in R4. 
Input: 
None. 


Output: 
RG system virtual address of the MV work buffer 
ALL other registers are preserved. 


Be Ge Ge Se Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge 
z 


GET_BUF _ADDR: 


SUBL3 G*MMGS$GL_SPTBASE, - 


Q00000000'GF  O0000000'GF C3 
54 G*EXESGL-SVAPTE, R4 


ulate byte offset to MV work 


GOOCSCOOOOCOOCOOOOOOOCOOOCOOCOCOO Cy 


Pt et a a ts ts et te ss ss ze. 
eS 8 a a a sd 9 te 


BEL EWN inonoporononororonon) 


PWN O OONOAU EWN OOONOUE Ww" 


54 54 O07 78 ASHL #9-2, R47 R : ft offset making VA minus 80000000. 
00 54 «OF Ee BBSS #PTESV_ VALID, R4, 10$ : Fix the 80000000 part. 
5 10$: RSB ; Return. 
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EXESRN 


OC AS AC'AF 9 
10 A3 8ED 
Q0000000'GF 16 
00000000'GF 17 


OOCOCCOCOCOCCO COO OCOCOOCOOooOO 
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WWAWWAWNAN WANA AAAI AAA AIA. A.A AAA. NAA ANAS am 
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. «SBTTL 
EXESMNTVERSIO 


Sete Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
a 


erif 

$10 

114 

1103 

1133 

114 

1150 

11 

11 

11 

1154 

1155 

11 § 

1 oe Be 
process 

1189 

1160 ; Input: 

1161 

1196 

116 

1164 R5 

1165 (SP) 

1196 

116 Output: 

1168 

1193 None. 

1170 ;-=- 

1171 

1106 EXESMNTVERSIO:: 

117 

1174 MOVAB 

1175 POPL 

1176 

1158 : Beg i 
3 Begin 

1198 : 

1180 IF 

1181 JSB 

11 ; ~ENDC 

11 

1184 JMP 
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19-SE =] 382 90:33:99 SYSLOA. SRC JMOUNTVER .MAR; 3 - (1) 
EXESMNTVERSIO 


Functional description: 


This routine is -” —— to initiate an 1/0 to a device. The 
request is packed ‘internal’ IRP. This means that the 
PID field of the IRP senteins the address of a routine to be 
cet ee by IOPOST to finish processing the 1/0 request. Note 
that the PID field will 


3 


e set to the address of a generic 
cessor, which will in turn branch to the actual post 
ng routine. 


BgoRt Rem are scratch registers 
R RP 


address 
UCB address 
= address of action routine to post-process the 1/0 


3; Start an internal 1/0 request 


L_PID(R3) ; Set 1/0 post address 
; Set action routine address 
; Note that the stack is te clean. 


“oe 


optional 1/0 performance measurement. 


CA$_MEASURE _IOT 


DF 
G*PMSSSTART_RQ ; Start 1/0 request measurement 


G*IOCSINITIATE ; Start the 1/0 immediately 


G 4 
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OC OOS END_] 18: oath 90: 33:98 SYSLOA.SRCJMOUNTVER.MAR; 3 . (1) 
-SBTTL END_IO 
Sa 
END_10 


~NO 


Functional description: 


This routine performs some common 1/0 post-processing 

before dispatching to the specific post processing routine, 
whose address is stored in — AST(R3). This routine is 
called by IOPOST, at IPL 4, so if is necessary to get into 


the proper driver fork context before continuing. 


AAAI AAAI AIAN AANA AN AINA AAI ANA 


n 
0 
AC 11 
AC 11 
AC 11 
AC 11 
A 
AC 1186 
AC 119 
AC 1194 
AC 1195 
AC 1138 
AC 119 
2 ieee 
0 AC 1200 R5 = IRP address 
AC 1201 IPL = IPL$_POST 
0 : : Output: 
QO3AC 1205 R5 = UCB address 
QO3AC 1 38 Ra = IRP address 
8 AC 120 
O3ac 1909 
8 ~~ : + END_I0: 3; End of I/0 request 
8 we : \¢ + Complete 1/0 performance measurement. 
O3AC 1214 cIF oF CA$_MEASURE_IOT 
00000000'GF 16 8 A } 1g -.. G*PMSSEND_RO ; Gather performance data 
O38 121 : 
53 55 D0 0382 1218 MOVL ~=—RS,, RB : Copy IRP addres 
55 1C AS DO 0385 1219 MOVL —- IRP$L_UCB(R3) ,R5 : Get UCB address 
9 1220 DSBINT UCBSB-FIPL(RSS : Raise IPL to driver FORK Level 
1083 16 C9 1221 JSB al RPS$C_AST(R3) ; Dispatch to post processing routine 
Bee 1 $6 ENBINT ; Restore IPL 
05 03¢c6 1 $B ; Return 
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youn OUS CLEANUP_10 18-Sep-1986 $i :4ei50 LersvOA.earsmountver.mar:3 29° 2, 
As -SBTTL CLEANUP_10 
> CLEANUP_10 


: Functional description: 


This routine is called to gertors any necessary cleanup on the 
1/0 request that has come into the main entry point of mount 


ALL registers are preserved. 


; verification. 

; Input: 

: RO,R1 = Status of the I/0 operation 
; R = IRP address 

: R = UCB adaress 

: Output: 


CLEANUP. 10: ; Finish processing an 1/0 packet 


: If 1/0 performance aa oye is enabled, call the proper routine 

; to gather the petrermence date. Note that the performance routine 

3 assumes that IRPSL_MEDIA and IRPS$L OMEDIASG contain the 1/0 status. 

3 eget ene lLongwords currently contain some information that will 
; be needed to later restart the request. Therefore, the contents of 

3 TRPSL SmEDIA’ and IRPS$L_MEDIA+4 must be saved and later restored. 


IF DF CAS_MEASURE _IOT 


VI IYIOOOOOOAAIOOOAOOAIOAOOOAOOOOOAOAOAOAAOAOOOO 
DOWN LN ol 
a a a a 


eee Seer eal eal taltahtal altal od ont at ae ot at ot ot oe 


—OODNAMN EWN CO ODNAU EWN O OD NOU EWN" OVOONOu 


7E 38 A3 7D MOVa 1nPst REOIATR ),-(SP)  ; Save info from IRP 
38 as. 50s 7D MOVa IRPSL_MEDIA(R3). ; Set 1/0 status 
09200900" GF 16 JSB e* Spaese io” 0 ; Take performance measurement 
38 A 8 7D we F (SP)+,IRPSL_MEDIACR3)  ; Restore info to IR 
05 RSB ; Return 


MMmMmMrmnmmmmmmmmmmmMmmrn 
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DA 1263 .SBTTL DORIVER_CODE = Driver specific code MSG 
DA 1 gi 6 ; : MVAl 
DA 53 DRIVER _CODE aa 
DA § Functional description: ~ 
DA 1 § : This rout ine will call the driver specific routine that is necessary MVM 
DA 1 9; : to begin n and end mount veritication, The address of the routine is MVM 
DA 1271 ; stored in the cell DDT$L_MNTVER. If a driver does not s ecity th AVA 
BA } igi : contents of DDT$L *MNTVERS | defaults. to the address of IOCSM TVER. ~ 
BEG fro x 
DA 1 2 ; RS = IRP address or 0 OFF 
DA f : R = UCB address Ap 
DA 1279 ; Output: PMS' 
0 DA i 9: : ‘ N PRS 
; one. 
DA 1 § 3 POO 
8 DA 1 : Side effects: 
3DA 1284 ; 
030k ! bg : Driver specific, but the contents of RO,R1,R2 and R4 may be overwritten. 
DA 1987 ° 
03k 1 Hy DRIVER_CODE: Call driver specific code 
50 0088 C5 DO O3DA 1289 MOVL UCBSL_DDT(R5),RO Get DDT address 
20 BO 17 O3DF 1290 JMP @DDTSC_MNTVER(RO) : Branch to driver specified routine 
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OeN OOS WRITLCK_HNDLR 18-S66-1 3b 90: 43:92 SYSLOA.SRCJMOUNTVER.MAR; 3 - (1) 
i -SBTTL WRITLCK_HNDLR 
 WRITLCK_HNDLR 


Functional description: 


Tats routine will allow the file system to regover from the 
accidental hardware writelocking of a FILES-11 volume. The 
method used is to mark the current IRP as a mount verification 
IRP, and try the request over aga n. If the request then 
succeeds, nothing more need be done. If the request fails egetn, 
keep trying until it succeeds. If this is the first time this 
request has failed (the MVIRP bit will be clear), then inform 
all interested parties that the device has been writelocked. 


Note that writelock recovery is not interlocked by the MVNVERIP 

bit. This will allow recovery of a device offline error to supersede 
writelock recovery. If this were not done, it would be possible to 
become deadlocked by an offline error occurring after a writelock 


BSBB DRIVER_CODE 
RSB 3; Return to caller's caller 


: Mark this IRP as a mount verification IRP. If it already is, 
3; then retry the 1/0 immediately. 


} 
L 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 208: 8BSS  #IRPSV_MVIRP,- : Branch if already set and set the bit 


Ss tess fon Dns Bana ea MAL AALAALAALAALAALAAIAALAAL AS AAAs eels es esl esl es eles aslasl asia esl esleslesleslesl esl eslesl esl eslasl eles esl esl esl esl esl el esl el el el el oe | 


DOONAN AO OD NAW WIN 9 OD NA UE WIN 9 OO NA UE WIN 3 O OO NAME WI  O ODNAOU EWP 


PPPS EF FANN AAAAIIPIPIPIDINPININININIDD 2 9 PP | MDOODOOOOOOOOOOOOOO 


error. 
Input: 
RO,R1 = 1/0 status 
R3 = IRP address 
R5 = UCB address 
Output: 
None. 
WRITLCK_HNDLR: ; Recover from accidental writelock 
8E 05 TST (SP)+ ; Remove return address from stack 
E1 10 BSBB CLEANUP_10 3; Clean up current 1/0 operation 
: To prevent the error log to become saturated with entries 
; due the repeated failure of this request, inhibit error logging 
; for this operation. Note that if error logging had previously 
3; been enabled, then the error log will already contain an entry 
; for this request. 
08 E2 BBSS  #10$V_INHERLOG,- : Inhibit error logging 
00 20 A IRPSW_FUNC(RS) , 108 3 
: If mount verification is piready in progress, then 
3 requeve this request to the device and try again Later. 
0 €1 108: ec #UCBSV_MNTVERIP,- ; Branch if mount verification not in progre 
03 64 A UCBSW_STS(R5),20$ ; 
E8 3; Requeue the IRP to the driver 


1 
| ; 
OD £2 
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LR 18-$8b=]382 99:38:92 FEYSUOR.SRESMountveR.man:3 29° 2}, 
] IRP$SW_STS(R3) ,30$ 3 
135] ; This is the first time this IRP has come through. Inform all 
! ; interested parties that the device has been writelocked. 
1354 ° MOVZBL #WRITELOCK,R4 =; Set message type code 
} 5 BSBB SEND_MES SSAGE ; Send message to interested parties 
5 : Try the 1/0 over again. 
1 § $0$:  BSBW  TIME_DELAY : Pause for a bit 
1360 JMP G*1OCSINITIATE 3; Retry the 1/0 
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SEND _MESSAGE SYSLOA. SRC JMOUNTVER.MAR; 3 ( 
r } of ve «-SBTTL SEND_MESSAGE 
z ! ¢ “SEND MESSAGE 
4 : : Functional description: 
406 1 8 : This routine is used to inform all interested parties of a mount 
4 1 § 3 ication related event. A message is sent to OPCOM, which h will 
4 1370 ; - “turn send the message to all operators enabled to receive DEVICE 
! 4 3 or DISK messages. 
406 1 ag : Since there is a possibility that OPCOM will not be able to relay 
406 1574 ; the message to the operator, also send a message that is targeted 
rf : o? 3 explicitly at the operator's console. 
48h 1 | tn 
406 1 8 : R4 = MV message List index for message 
Bebe } 9 3 R5 = UCB address 
BSS Habe f Ouowe 
0406 1384 ; None. Contents of RO .. R2 are destroyed 
0406 1385 ; 
Biss 1 
gm HSS IRE ewan: ; 
= 3 ® 
09000 oe rts : ey SAVED “A = &, ; . Offsets to saved registers 
= é a 
000001 406 1 3 SAVED-RS = 16 ie 
9494-4 406 1393 DEVNAM SIZE = ay aps ; Allow 20 character device names 
O00000A 0406 1394 POOL OVERHEAD = 2+IRP$W_SIZE : Allow for Uistheed and size fields 
4 4448 2 0406 1395 MSG ~OVER couene = POOL OVERHEAD + DEVNAM_ SIZE : <2 * CAR_CTR E> 
000000A t+ : 38 MSG_START = POOL_OVERHEAD ; First usuable Byte Tn pool 
Bebe : 38 SEND_MESSAGE : ; Send message to interested parties 
a¢06 1? ’ : Send message to OPCOM. 
406 14 : : PUSHR #encRt gre R3,R4,R5> : Save registers 
OOAF 0 04 14 BSBW GET ; Put address of message Id in R4 
08 02 Ad) «60(01)—CiCiéET—s04 1404 BBC smuAs 30" SUPRESS ; : Branch if MVMSL does not indicate 
410 1405 avast W FLAGS (ROS “15$ 3 that this message is supre sable. 
07 64 AS 12 €1 Q410 14 : BBC s pan h if UCB does not indicate that 
41 14 BSL VeRvne St75 3; normal MV messopes are supressed. 
OO9F 31 041 1308 BRid :; Else. supress this message. 
418 1409 15$: ASSUME ucesy SUPMVMSG GE 16 
66 AS 04 41 1319 BICB <ucBSa_S UPMVMSG@-16>, -; For must print messoges clear the 
41C 141 UeBSe Sree (R5) 3; supress mount verifi cation msgs. bit. 
54 64 HS 41C 1216 17$: MOVZWL MVASL Si MSG_CODE(R4),R4 ; get the OPCOM message number. 
53 0000000 ' GF —E O41F 141 MOVAB G*SYS$GC_OPRMBX,R3 3 Get operator mailbox UCB addr 
0000000'GF 16 " 1013 JSB G*EXESSNDEVMSG : l message to OPCOM; ignore. failure 
2c 1416 > Send message to _OPAQ:. 
42C 1417; 
42C 1418 § 
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42C 141 ; Calculate the total message size and allocate a block 
42eC 14 ; of ponpaged poo} in which to build the aqsse e. 
r : 1? ; SIZE = prefix_size + message_size + suffix_size + pool_header_size + devic 
0088 0 QO42C 14 : 6sBw ET_MSG_ID ; Get message description and id. 
7 | a. A QO42F 1424 MOVZBL (RIJ, RT ; Setup allocation size accumulator. 
2} O85'CF 4 § 1425 ADDB W°PREFIX, R1 ; Add prefix size to message size. 
1 peat 4 14 § ADDB W*SUFFIX, R1 ; Add suffix size to accumulated size. 
1 2 80 043¢ 14 ADDB #MSG_OVERHEAD, R1 : Add message overhead to acc. size. 
3 ocate the necessary poo 
00000000'GF 16 O43F 14 JSB G*EXESALONONPAGED ALL h P ( 
6F 50 «OC o 12 BLBC RO, 90$ ; If no pool available, give up. 
448 14 ? ; Build the message in the pool just allocated. 
448 14 § ; The entire message consists of the prefix, followed by 
448 14 ; the formatted device name, followed by the message text, 
rr 1° ¢ : followed by the sufix. 
448 14 § 3; R1 = actual pool size 
rv 13 3; R2 = address of pool 
08 A2 51 BO 48 1439 MOVW R1,1RP$W_SIZE(R2) ; Save size of pool in the block itself 
04 AE 5 dO $f 1440 MOVL R2,SAVED_R2(SP) ; Save address of pool 
53 OAA 43 50 1441 MOVAB MSG_START(R2) ,R3 ; Get address of Sessone buffer. 
83 OAOD 8F 3 54 1448 MOVW #CAR CTRL, (R35¢ : Insert leading <cr><lf> 
51 0085'CF : 59 144 MOVAB W*PREFIX,R1 : Get address o prefix ASCIC string 
6c 1 oF 1444 B COPY ascic : Copy string to buffer (R5 destroyed) 
55 10 AE dO 6 1445 MOVL SAVEB_R5(SP),R5 ; Restore R 
50 14 00 64 1966 MOVL #DEVNAM_SIZE,RO ; Set device name size 
D MOVL R53, ; Set buffer address 
" i +4 rh 44 120 PUSHL R? ¥: : out “ 
3; Save 
54 1 CE 046C 1249 MNEGL #1,R4 ; Signal get node+devnam for remote devs 
00000000'GF 16 Q46F 1450 JSB G*fOCSCVT_DEVNAM ; Format the device name (R1 = result length 
4 BED 5 1451 POPL R4 ; Restore R4 
53 7, + & 478 1028 ADOL R1,R3 : Point to next byte in me buffer 
Ere 7B 145 BSBB GET MSG_ID ; R4 = address of message identifier 
4D 1 7D 1454 BS8B copY_astic ; Copy message text to buffer. 
39 «10 7F «(1455 BSBB GET_ASG ; Get message text descriptor 
07 02 a4) «=600~—C—é«é#E!CO 1 1428 BBS snvAsy St NOSUFFIX, = : Branch if suffix not requested. 
6 145 MVMSLSW_FLAGS(R4), 308 ‘ 
51 OO9C'CF 3 6 1338 MOVAB W*SUFFIR,R1 : Get address of suffix ASCIC string 
3F 1 8 145 BSBB COPY_ASCIC 3; Copy suffix to the buffer 
83 OAOD 8F 80 88 1299 308: MOVW #CAR_CTRL, (R3)+ : Insert trailing <CR><LF>. 
4 1496 > Send the message to _OPAO: 
54 04 AE D0 0492 1464 MOVL  SAVED_R2(SP),R4 ; Restore pool address 
52 AAG 9 96 1465 MOVA MSG TART (R45 ,R2 3; Get start of mpssone address 
ae ee oe 9A 14 § SUBL R ; Calculate the Length of the message 
55 0000 00° GF 9E 049F 146 MOVAB G*OPA$UCBO,RS : Get console terminal UCB address 
00000000'GF 16 04A 1468 JSB G* 1OCSBROADCAST : Send the message 
4 » AB 128 MOVL 3 Copy pool address 
0000: "GF 6 Q46AE 14 9 JSB G*COMSDRVDEALMEM 3; Deallocate the pool 
5 1 3C 0484 147 MOVZWL #SS$_NORMAL,R 3; Set success sta ys 
E BA 487 1478 90$:  POPR  #*M<R1,R2,R$,R4,R5> : Restore Ri ... R5. 
5 0489 147 RSB 3; Return 
4BA 1474 
4BA 1475 ;+ 


N 4 
NTVER - Mount Verification routines 16-SEP-1984 00:18:09 VAX/VMS Macro v04-00 Pp 4 OPD 
youn OUS SEND MESSAGE 1B-SEpa}o8e Si ikeicm LeNSU OS acs NOt OO uanss ase 34, v04 


; This is a local subroutine to index into the message 


1476 ; 
4BA 1238 ; identifier table and return the address of the correct 
4BA 1478 ; entry in R4. Note that the stack depth has changed due 
rT 19f ; to the return address on the stack. 
4BA 1481 GET_MSG_ID: ; Return address of message identifi 
54 19 AE D0 O4BA 1488 MOVL 4+#SAVED_R4(SP) RG t det the tle ne ar 
51 FB42 CF E te 1? Z ett WEXESABMVMSLBAS, RI ; Get base of message info table. 
54 6144 7 4C35 1485 OVAQ (R1) ; Get address of entry for message id. 
51 04 AG 4 4C7 14 § ADDL MVMSLSL_fEXTOFF(R4), R1 ; Get base of counted string address. 
4CB 14 RSB 3; Return 
4CC 1488 
ae 1S 
4CC 1491 : This routine is a spcial case of COPY_STRING. On input, R1 is 
4cC 1736 ; assumed to contain the address of an ASCIC string. Execution 
rt}: 1232 ; drops through to COPY_STRING, and will return from there to the caller. 
4CC 1495 Copy_ASCIC: ; Special case of COPY_STRING 
50 81 9A a 1498 MOVZBL (R1)+,R0 ; Get Length of string and advance the point 
4CF 1338 3+ 
4CF 1499 ; This routine is used to copy a string to a buffer. 
4CF 1500 ; se . 
Rete 138) 3 Input: 
beer 1308 : RO = string Length 
O4CF 1504 ; R1 = string address 
O4CF 1383 : R3 = buffer address 
O4CF 15 $ : 
Rete 1287 3; Output: 
4CF 1509 ; R3 = address of next byte in the buffer. 
re 1319 : (This is a fortuitous side-effect of the MOVC3 instruction.) 
4CF 1512 COPY_STRING: : Copy a string to a buffer 
63 61 50 2B 4c 1318 "MOVES RO, (RT), (R3) So te it! 
05 0403 1514 RSB ; Return 
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UPDGNERNUM - update shadow set gonerettes number 
MNTVERSHDOL = bring a shadow set member onl ne 
MNTVERSP1 = spare mount verification entry point 
MNTVERSP2 = spare mount verification entry point 
MNTVER_DVI_ASSIST = SGETDVI escape transfer vector 


UM = update shadow set generation number 
MNTVERSHDOL = bring a shadow set member online 
SMNTVERSP1 = spare mount verification entry point 
XESMNTVERSP2 = spare mont verification entry point 
EXESMNTVER_DVI_ASSIST = S$GETDVI escape transfer vector 


Functional description: 


> 


mmmmnrn 
<< 
mmmmrmnrn 
PAPAMM 


SUPDGN 
$ 


mmr + 


These mount verification neg | points do not yet have any code written 
for them. There are defined here to hold their places for possibly / 
probable implementation during the life-time of Version 4. 


UPDGNERNUM: : 
MNTVERSHDOL:: 
SMNTVERSP1:: 
SMNTVERSP2:: 

RSB 
EXESMNTVER_DVI_ASSIST:: 
JMP (RO) 
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NTVER - Mount Verification routines 16-SEP-1984 00:18:09 VAX/VMS Macro v04-00 Page 3 Opt 
V rant EXESCLUTRANIO = VAXcluster State Change 10-SEP-1984 90: 43:92 SYSLOA.SRC JMOUNTVER.MAR; 3 ° 8, vO! 
rhs ! +8 me -SBTTL EXESCLUTRANIO = VAXcluster State Change I/0 Blocking 
rt} i ? ; EXESCLUTRANIO = VAXcluster State Change 1/0 Blocking 
rh 4 : 3; Functional description: 
407 1 3 This routine is used to place all MSCP or cluster accessible disks into 
407 1 5 mount verification. The intended use is to ensure that no I/0 is 
rt ! : ; issued when a cluster may be out of quorum. 
407 1 : Input: 
407 1 5 3 
407 1 8 $ None 
407 1559; 
407 1560 ; Output: 
407 1561 ; 
407 1398 3 None. Contents of all registers preserved. 
407 138 3 
407 1564 ;-- 
407 1565 
4D7 1296 EXESCLUTRANIO:: 
OO7F 8F 6B ri 4 129 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6> 
pepe 1369 ; First look at all local devices. 
408 1570 ; If the UCB is not busy, it is marked busy and mount verifiction is started. 
Rees 1378 : If busy, volume valid is cleared and the mount verification pending bit is 
0408 1573 : 
56 Q0000000'GF D0 04DB 1574 MOVL G*IOC$GL_DEVLIST,R6 3; Start of DDB List 
55 04 A6 9 O4E2 1575 10$: MOVL DBSL_UCB(R6) ,R5 ; Get a UCB 
49 1 Beeg 1326 BEQL : None 
01 40 ag 91 Bee 157 CMPB UCBSB_DEVCLASS(R5) ,#DCS_DISK 
4 12 O4EC 13/8 BNEQ 0$ 3; Not a disk 
3— 38 AS oF E1 O4EE 157 BBC #DEVSV_FOD,,UCBSL_DEVCHAR(R5S) ,50$ ; Not file oriented 
39 3c AS. 05) «EO (O4F3 «1580 BBS #DEVSV~MSCP,UCBSC_DEVCHAR2(R5),50$ ; Not interested in MSCP now 
4 AS D3 4F8 1581 208: TSTL UCBSL_VcB(R5) ; Check the VCB - consistency check only 
. An 4FB 15 ¢ BEQL 40$ ; Next UCB if none 
29 $f AS 3 EO O4FD 15 BBS #UCBSV_MNTVERIP ,UCBSW $T§(R5),40$ ; Already have it 
24 3C AS E1 206 1584 BBC #DEVS$V_CLU,UCBSL DEYCRARG (R>) «8 $ ; Not cluster accessible 
00 64 AS 3 E2 0507 1585 BBSS #UCBSV~ SUPMVMSG ,OCBSL Sysin ),25$ ; No messages 
10 64 ASO E1 ave 15 $ 25$: BBC #UCBSV_BSY ,UCBSW_STS(R5) ,30$ ; UCB not busy 
¢4 AS __0800 or AA 0511 15 BICW #UCBSM-VALID UcBSW_STS(R5) ; Clear vol-valid to stop 1/0s 
64 A5 00284000 8F cB 0517 15 8 BISL  #<UCBSA_MNTVERIP - ; Pending when 1/0 completes 
gif 1 'UCBSM_MNTVERPND - ; initiate mount verification for 
\ oe , 'UCBSM_CLUTRAN>, - : for a VAXcluster state transition. 
Sif 159 YeBst STS(RS) 
- 11 “if 1 38 BRB 40$ 
64 AS 0100 8F AB 1 15935 30$: BISW #UCBSM_BSY,UCBSW_STS(R5); Make UCB busy to stall 1/0 
Fe3 CF 16 0527 159% JSB MNTVER-NOIRP : Put it in mount verification | 
55 0 As D 52B 1595 40S: MOVL BSL_CINK(RS) .RS ; Next UCB 
C 1 SoF 1 38 BNEQ 3; Go look at it 
56 66 OD 531 1597 50$: MOVL PDESL LINE (RG) RG 3 next 
AC 1 : ; ' 38 BNEQ 10$ 3; Go look at it 
536 1600 : Now handle the MSCP disks. It is only necessary to set the CDDB bit to 
: ? 19 } : indicate out-of-quorum and then call the revalidate routine. 
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OL OuS EXESCLUTRAN ANIO = vAkc Luster State aes. 18: tt 1 90: 43:53 SYSLOA.SRCJMOUNTVER.MAR; 3 . (2) 
53 seeped 3 33) 16 ; movi. gr OCSGL_DU_CDDB,R3 3 Get start of CDDB List 
3 Non 
nie ee A i 1 5 70$ BISW expe $M gPYORL OST = : Indicate a quorum lost request 
BH Ks ‘3 19 $ PUSHR 5ep pesys! R7,RB,RI,R10,R11> 
D 49 1 8 VL D BSL ‘bob RS) ,RO : Get DDB 
D 4D 16 MOVL DOB ; BDT (RO) ,RO : Get DDT 
1 551 1610 $B aDdoT §-UNSO INT(RO) ; Call the revalidate routine 
tf BA 554 1611 POPR #*M<R5,R7,RB,R9,R10,R11> 
4 AA 0558 1916 BICW tsppeer auorlosf,- ; Back to usual state 
C 161 CDDBS$W_STATUS (R35 
9 1ele MOVL GBDBSL. CDDBL INCAS), R3 ; Get next CDDB 
1 ° 1615 BNEQ ; Go process it 
oo7F & BA 2 1918 90$ POPR #*M<RO,R1,R2,R3,R4,R5,R6> 
SB en 
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‘ -SBTTL QUORUM 
QUORUM 
Functional description: 


This routine is used to determine if we are in a cluster that is 
out of quorum. 


None 
Output: 


R4 0 => not an out of quorum cluster 
1 => out of quorum cluster 


: Input: 


PAEAAAAAAAAAAAAAAAA AAO 


COOOCCQWDOOCOCCCOOCOOOOOOOOOOOOOOOO 
PV PUPUPU PUPP SUSU SUSU 
VAMBHRNH DODODODODDDOODOODOODODOOO 
a kk kd a dt td 
DEAE AAAA AAA AAAAA AAA AAAAAAO 


BPP PEE EWN rorononororororonorn 


NOUS WN OC OONOU EWN" OOOO WO 


54 D4 QUORUM: CLRL R4 ; Assume no cluster 
52  00000000'GF b9 MOVL GOCLUSGL_CLUB.R2 
QOD 1 BEQL 0$ ; No ce so no cluster 
08 1c a2 «(00~—séE? 7 BBC #CLUBSV_CLUSTER, CLUBSL_FLAGS(R2),50$ ; Not a cluster member 
03 1C Ao 1C £0 057 bBS #CLUBSV~QUORUM, CLUBSL_FLAGS(R2),50$ ; Not out of quorum 
54 =~01 dO 7 MOVL #1,R4 3; Indicate no quorum 
05 8 50$: RSB 
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-SBTTL GET_VCB = Obtain VCB address 
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* 
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GET_VCB = Obtain VCB address 
Functional Description: 


Because — verification is used for more than just igen F mistaken 
hardware sh anges, there are several conditions in which 

verification can be entered legally without there being ¥ UP ILES=11 
VCB. Such cases are: 


1. The volume being processed is mounted /FOREIGN. 


2. The volume being peseenes is the system disk and it has not yet 
been properly mounte 


3. The volume being processed is the quorum disk and it has not yet 
been properly mounted. 


This routine returns control if a VCB is present or Beet he Pe: eens 
The condition code is NEQ if the VCB is present or 
legally absent. Otherwise, mount verification is shethedi 


Inputs: 
R3 MVIRP address 
R5 UCB address 
Outputs: 


Condition codes: 


NEQ VCB is pot 4 
EQL VCB is legally absent 


RO VCB address 
ALL other registers are preserved. 


Sete Se Se Ge Se Se Ge Se Se Se Ge Ge Ge Se Se Ge Ge Ge Se Se Ge Fe Ge Se Se Ge Sse Se Se Se Se Ge Se Se Ge Ge teste 


C9 CD Cd Cd Cd Od 09 CD OD CD C9 0D CD CD 0D 09 OD 09 0D 0D 09 09 0D 09 09 09 0D CD CD CD CD CD CO CO CD CD CD CD CD OD OD OD 

SPP IPIPAIMNIPPININIPIPIPINPIPPIPINPIPIPIPIPIPIPPIMPIPIPIPIPIMPIPIPIPIMPPMIPIPIPIPNYD 
WOO OO 0000000 69 00 09 09 09 09 09 SIN NN NNN SNP AAA AAA AAAMUMIUIUIVIVIVIUIVIIL SE — a 

DOONAN EWN CO OO NAMES WN 0 OO NAME AN (OOO NOUS wn" 00 


a a kd tO 
SID DD DED DDD DDD DD DDD DPD PAPA AAA A AAA AAA AAOAAAAAAAOAOAOOAOAOAOAAOS ete 


: GET_VCB: 
25 38 AS 618~=«O«E0 ¢ BBS #DEVSV_FOR, - 3; Branch if /FOREIGN disk. 
4 ? UCBSL_BEVCHAR(RS), 60$ 
50 34 AS 00 7 5 MOVL Urest _VCBCRS), RO ; Get VCB address 
) ee : 38 BNEQ 0$ ; Branch if VCB is present. 
55 00000000'8F 01 D 38 CMPL #SYS$GL_BOOTUCB, R5 : Is this the system disk? 
“4. 3 3 80 BEQL 60$ ; Branch if system disk. 
50 00000000'GF 00 96 1 MOVL “CLUSGL_CLUB, RO ; Get CLUB address. 
19 1 9D ¢ BEQL : Branch if no CLUB. 
50 0084 f 0 oF MOVL BSL_CLUDCB(RO), RO ; Get quorum Sisk control block addr. 
ee A4 4 BEQL $ Prenct if no 
55 OC AO 01 Ad 5 CMPL CLUDCB$L_UCB(RO), R5 : Is this the quorum disk? 
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; Branch if not the quorum disk. 


Indicate VCB legally absent. 
Return to caller. 
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VCB not present when it should be. 
Pop return address from stack. 
Abort mount verification. 


MOUNTVER 
Symbol table 


BUILD_PACKACK_IRP 
BUILD -RDHOME _TRP 


CAR_C 
CAR“CTRL_SIZE 
CODBSL_ “EBB int 


dD 
CDDBSM_~QUORLOST 
tities ATUS 


CORPSL'FR 
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AX/VMS Macro 
SYSLOA.S RCIM 
RRRRHRee 
404 Rc” 
3 R 
§ & 
R 
82 R 
284 R 
5 ¢ R 
1C 
108 
1F 
1C 
1D 
0 3 
Se 
0000 60 
0000008 
0000008 
944444 5 
000000C 
Rkekeene x 0 
Rkeeeeee x 0 
gekekeere x 0 
ReRKRERE x 0 
Reekeeee x 0 
Rekkkeee x 0 
RARRKEEE x 0 
00000068 
0000008 
444 494 
00000C4 
0000010 
B65 014 
8 000032 
000006 
Boake 
O80 0 
000 8 
4 7 
0000002C 
88 1 
66 
ti 
a 
es 
4 : 03 
4 
1 
2 
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MOUNTVER 9 YAX/VMS Macro V04-00 Page 42 
Symbol table ~ 4 3 ES YSLOA. SRCIMOUNTVER. MAR; 3 . (4) 
MSG, START = A UCBSM_VALID = 
MVABORTED = UCBS$M_WRONGVOL = 
MVCOMPLETE = UCB$V_BSY s 
MVMSLSK_LENGTH : UCB$V_CLUTRAN s 1 
MVMSLSL_SNOMSGOF F = FFFFFFFC UCBSV-MNTVERIP = 13 
MVMSLSL_TEXTOFF s 4 UCBS$V—SUPMVMSG = 1 
SM-NOSUF FIX = 1 UCBS$V-VALID = 8 
MVMSLSM_SUPRESS = 3 UCB$V_WRONGVOL s F 
LSV-NOSUF FIX = UCBSW-STS s 4 
MVMSLSV_SUPRESS = 1 VALIDATE _ERROR R 
MVMSLSW_FLAG = VALIDATE-EXIT R 
MVMSLSW-MSG_CODE = VALIDATE FAILED 8 19 R 
NORMAL EXIT R 02 VALIDATE_HOME 9 R 
OF FLINE = 00000 VALIDATE_SCB 38 § R 0 
OPASUCBO ereeeeee =X 0 VCBSB_STATUS2 = 0000005 
PAUSE OOO000F9 R 0 VCBSL_HOMELBN = + tp 
PMSSEND_10 eeeeeeee = X 0 VCBS$L_SBMAPLBN = 3008 4 
PMSSEND_RQ eeeeeeee =X VCB$L_SERIALNUM = 00000064 
PMSSSTART_RQ teeeeeee X 0 VCB$Q_MOUNTT IME = 9000090 
POOL _OVERAEAD = 0000000A VCBSS_VOLCKNAM = 4434 
TPL = F000 Ng VCB$S_VOLNAME = 000000 3 
PREFIX 44 03 VCBS$T_VOLCKNAM = 0000008 
PTESV_VALID = ooOl VCBST_VOLNAME = 00000014 
QUORUA 0000569 R 08 VCBSV_MOUNTVER = 0000000 
UORUM Hae SET R 0 WRITECOCK = 454449 
SAVED_R1 = 00000000 WRITLCK_HNDLR QO0003E2 R 02 
SAVED_R = i444 WRONGVOC = 00000001 
SAVED_R = 4444443 
SAVED_R4 = 0000000C 
SAVED_RS = 00000010 
SCBSQ_MOUNTT = 000000 3 
SCBS$T- VOLOCKNAME = 000000 
SE SSAG 00000406 R 02 
SS$_INCVOLLABEL = Bo08 10C¢ 
SS$_MEDOFL = 1A4 
~ NORMAL = bo6 1 
SS$_VOLINV = O8 0254 
SS$-WRITLCK = 0000025C 
SUFFIX 0000009C R 03 
SYS$GL_BOOTUCB eeeeeere =X BS 
SYSS$GL~OPRMBX eeeeneee = X 0 
TABLE_INDEX = 
TIME BELAY 02 
UCBS$B_DEVCLASS = 
UCBS$B_F iPL = 
UCBSL_DDT = 
UCBSL_DEVCHAR s 
UCBSL_DEVCHAR2 = 
UCBS$L~I00FL = 
UCBSL_LI = 
UCBS$L_STS = 
UCBSL_VCB = 
UCBSM_BSY z 
UCBSM_CLUTRAN = 
UCBSM_MNTVERIP = 
UCBSM_MNTVERPND = 
UCBSM_SUPMVMSG = 
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MOUNTVER = Mount Verification routines 13-8 
Psect synopsis 10-SEP- 

pawn nwo eam masa nn} 

: Psect synopsis ! 

tere occ en am memocoaa $ 
PSECT nam Allocation PSECT No. Attributes 
» MS » 808 68 ( > OO -) NOPIC USR CON ABS LCL N 
SABSS$ 0 ( + 1 ¢ -) NOPIC USR CON ABS LCL N 
WIONONPAGED 0000584 ( 96 ‘an § ( -) NOPIC USR CON REL LCL NOSHR’- EXE 
WMOUNTVERMSG OQOOOOOBE ( 190.) ( -) NOPIC USR CON REL LCL NOSHR- EXE 

penrescee son er aseane Sewaeanaae > 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 35 88:80:00. 5 0:00: 0.73 
Command processing 117 0:00: 9. 7 0:00:01. 
Pass 615 0: 3?) ° : 0: AY 24 
Symbol table sort 0 0:00:02. 0: p: 35 
Pass 2 311 0:00:04.16 0:00:17.9 
Symbol table output 29 0:00:00.14 0:00:00.5 
Psect synopsis output 4 0:00: 3-5 Hs Be 4 
Cross-reference output 9 e's 0.0 0: 9:08 
Assembler run totals 111 0:00:24.99 00:01:34.29 


The working set Limit was 1800 pages. 

151 bytes (297 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 150 pages of symbol table space allocated to hold 2738 non-local and 57 Local symbols. 
source Lines were read in Pass 1, produc ing 20 object records in Pass 2. 

35 pages of virtual memory were used to define 34 macros. 


s+woeecooeeonn ewer eee ee seem ere eee + 


: Macro Library statistics ! 


eeewoeoeooeeoceccesccescecs + 
Macro Library name Macros defined 
“RSs geOUAgs: ES¥S- 08424 18-8: 1 0 
$255$DUA28: (SYSLIBISTARLET.MLB;2 0 
TOTALS (all Libraries) 30 


2833 GETS were required to define 30 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MOUNTVER/OBJ=OBJ$:MOUNTVER MSRC$:MOUNTVER/UPDATE=(ENH$: MOUNTVER) +EXECMLS$/LIB 


EP-1984 00:18:09 VAX/VMS Macro v04-00 Pa 43 
pal obe Siiheice Fa SVOR. sees C OMT Ce marn:s P28* 43, 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE RD R 


RD WRT NOVEC BYTE 
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